home *** CD-ROM | disk | FTP | other *** search
/ Sun Solutions 1997 April to September / Sun Solutions CD - APR '97 - SEP '97 (704-3778-12 Rev. H)(Sun Microsystems, Inc.)(1997).iso / products / bin / update.new.pl < prev    next >
Perl Script  |  1997-02-28  |  38KB  |  1,126 lines
  1. #!/net/cdware/export/home/cdware/lab/bin/perl 
  2. # ------------------------------------------------------------
  3.  
  4. # update.pl, by Jean-Pierre Girard (jpg@corrado.sun.com)
  5. # This allows the user to edit or create the _info file
  6. # necessary for the SunSolutions.
  7. # version 1.0, Feb, 20 1996
  8. # ------------------------------------------------------------
  9.  
  10. # Bugs and other fixes
  11.  
  12. # ------------------------------------------------------------
  13. %Special = (
  14. "internet", "596,200"
  15. ,"Sun", "596,167"
  16. );
  17. #
  18. # Below are fields delimited by ^.
  19. # field 1: Full category name
  20. # field 2: Category image name
  21. # field 3: Category header height (if other than default)
  22. # field 4: Banner Ad company directory.
  23. # field 5:
  24. #
  25. %MainCat = (
  26. "access", "Internet Access^intacc.gif^"
  27. , "service", "Services for the Internet^intserv.gif^"
  28. , "commerce", "Internet Commerce^intcomm.gif^220^Progress"
  29. , "publishing", "Internet Publishing^intpub.gif^"
  30. , "intsecurity", "Internet Security^intsec.gif^"
  31. #Added Specifically for April 97 Issue
  32. , "intauth", "Internet Authoring/Java^intauth.gif^"
  33. , "intcontmgt", "Internet Content Management^intcontmgt.gif^"
  34. , "intdbconn", "Internet Database Connectivity^intdbconn.gif^"
  35. , "intemail", "Internet Email^intemail.gif^220^Eudora"
  36. , "intgrpware", "Internet Groupware/Document Flow^intgrpware.gif^220^Lotus"
  37. , "intoffprod", "Internet Office Productivity^intoffprod.gif^"
  38. , "intprodauth", "Internet Production/Authoring^intprodauth.gif^"
  39. , "intsrcheng", "Internet Search Engines^intsrcheng.gif^220^ExciteInc"
  40. , "intstemgt", "Internet Site Management^intstemgt.gif^220^Inso"
  41. , "intswdev", "Internet Software Development Tools^intswdev.gif^"
  42. , "intwebad", "Internet Web Advertising^intwebad.gif^220^DocuVenture"
  43. , "intwebcms", "Internet Web CMS^intwebcms.gif^"
  44. , "intwebdw", "Internet Web Datawarehouse^intwebdw.gif^"
  45. , "intwebmon", "Internet Web Monitoring^intwebmon.gif^"
  46. , "intwebserv", "Internet Web Server^intwebserv.gif^"
  47. , "intwebste", "Internet Web Site^intwebste.gif^"
  48. , "intwebvideo", "Internet Web Video^intwebvideo.gif^"
  49. , "intwebvoice", "Internet Web Voice^intwebvoice.gif^"
  50. #Main Categories from April 97 front GUI
  51. , "Hardware", "^hard.gif^"
  52. , "Services", "^serv.gif^220^CV"
  53. , "companies", "^comps.gif^"
  54. , "Sun", "Sun Products</font>^sprods.gif^"
  55. #These are Software subs
  56. ,"archive", "Archiving, Storage Management & Backup Solutions^sstormn.gif^220^Legato"
  57. ,"business", "Business Solutions^sbizsol.gif^"
  58. , "cad_cae", "Computer Aided Design/Engineering^scade.gif^"
  59. , "catalogs", "Catalogs^scata.gif^"
  60. , "client_server", "Client/Server Solutions^sclnt.gif^220^Landmark"
  61. , "desktop_apps", "Desktop Applications^sdesk.gif^220^Apple"
  62. , "diag_flow", "Diagramming and Flowcharting^sdiaflo.gif^"
  63. , "doc_mgt", "Document Management^sdocmn.gif^"
  64. , "epubs", "Electronic Publishing^selecpb.gif^"
  65. , "graphics_imaging", "Graphics and Imaging^sgfximg.gif^"
  66. , "info_mgt", "Information Management^sinfomn.gif^220^Informix"
  67. , "multimedia", "Multimedia^smulti.gif^220^DocuVenture"
  68. , "networking", "Networking^snetwk.gif^220^IBM"
  69. , "security", "Security^ssecu.gif^"
  70. , "sw_eng", "Software Engineering^ssfteng.gif^"
  71. , "sys_admin", "System Administration^ssysad.gif^"
  72. , "telco", "Telecommunications^stelco.gif^"
  73. , "training", "Training^strain.gif^"
  74. #Added for April 97 Issue
  75. , "financial", "Financial Services^financial.gif^220^SCO"
  76. , "utilities", "Utilities^utilities.gif^"
  77. , "offprod", "Office Productivity/Automation^offprod.gif^220^Corel"
  78. , "perfmgt", "Performance Management^perfmgt.gif^220^Landmark"
  79. );
  80.  
  81. ##############################################################################
  82. # getField 
  83. ##############################################################################
  84.  
  85. sub getField
  86. {
  87. local($string1, $string2) = @_;
  88. $count=0;
  89. $string1 =~ s/\^/\n/g;
  90. @elements = split(/\n/, $string1);
  91.   foreach $item (@elements) {
  92.   $count++;
  93.     if ($count eq $string2) {
  94.     $return=$item;
  95.     }
  96.     if ($string2 < 1 | $string2 > $count ) {
  97.         #$return = "Invalid Field number";
  98.         $return = "";
  99.  
  100.     }
  101.   }  
  102.   $return;
  103. }
  104.  
  105. ##############################################################################
  106. # PrintHtml:
  107. ##############################################################################
  108. sub PrintHtml
  109. {
  110.     local($StrHtml1, $Str, $StrHtml2) = @_;
  111.     
  112.     if ($HTML_FORMAT eq "true") {
  113.         print STDOUT $StrHtml1;
  114.     }
  115.  
  116.     print STDOUT $Str;
  117.  
  118.     if ($HTML_FORMAT eq "true") {
  119.         print STDOUT $StrHtml2;
  120.     }
  121. }
  122. ##############################################################################
  123. # CheckLinks:
  124. ##############################################################################
  125. sub CheckLinks
  126. {
  127.     &PrintHtml("<BR>", "\nChecking links1...\n", "<BR>");
  128.     $ListDir = `cd $PRODUCTS_DIR; ls`;
  129.     $ListDir =~ s/gui|SunSolutions|DEV|hotjava|tempjas|temp//g;
  130.     #$ListDir =~ s/\n+/ /g;
  131.     @dirfields = split(/\s+/, $ListDir);
  132.     foreach $Dir (@dirfields) {
  133.         if ($Dir =~ /SunSolutions|DEV/) {
  134.             next;
  135.         }
  136.         &PrintHtml("<DD><DD>",  "\t\tTesting $Dir ...\n", "<BR>");
  137.         $ListFiles = `find "$PRODUCTS_DIR/$Dir" -name "*.html" -print`;
  138.         $ListFiles .= `find "$PRODUCTS_DIR/$Dir" -name "*.htm" -print`;
  139.         #$ListDir =~ s/gui|SunSolutions|DEV|hotjava|tempjas|temp//g;
  140.         @filefields = split(/\s+/, $ListFiles);
  141.         foreach $File (@filefields) {
  142.             if ($File =~ /SunSolutions.(frame|head).html/) {
  143.                 next;
  144.             }
  145.             #&PrintHtml("<DD><DD>",  "\t\tTesting $File ...\n", "<BR>");
  146.             if (open (HTMLFILE, $File)) {
  147.                 while(<HTMLFILE>) {
  148.                     chop;
  149.                     $Line = $_;
  150.                     $LinePrint = $Line;
  151.                     if ($HTML_FORMAT eq "true") {
  152.                         $LinePrint =~ s/</</g;
  153.                         $LinePrint =~ s/>/>/g;
  154.                     }
  155.                     if ($Line =~ /HREF/i) {
  156.                         $Ref = $Line;
  157.                         $Ref =~ s/.*HREF *= *"?([^" >#]*)[" >#].*/\1/i;
  158.                         if ($Ref =~ /HrefButtonArea/) {
  159.                             $Ref =~ s/.*HrefButtonArea,\d+,\d+,\d+,\d+,([^" >]*)/\1/;
  160.                         }
  161.                         #print "\t$Line\n\t->$Ref\n";
  162.                         if ($Ref eq $Line) {
  163.                             &PrintHtml("<B>",  "ERROR: Bug? in update.pl. File=$File\n", "</B><BR>");
  164.                             &PrintHtml("<DD>",  "\t$LinePrint\n\t->$Ref\n", "<BR>");
  165.                         }
  166.                         if ($Ref eq "" && $Line !~ /HREF *= *"?\#/i) {
  167.                             &PrintHtml("<B>",  "ERROR: Bug? in update.pl. File=$File\n", "</B><BR>");
  168.                             &PrintHtml("<DD>",  "\t$LinePrint\n\t->$Ref\n", "<BR>");
  169.                         }
  170.                         if ($Ref !~ /mailto:|ftp:|http:\/\/|req_more_info.exe/i || $Ref =~ /http:\/\/localhost/) {
  171.                         #if ($Ref !~ /mailto:|ftp:|http:\/\/[^l]|req_more_info.exe/i) {
  172.                             #print "->$Ref\n";
  173.                             $ShortDir = $File;
  174.                             $ShortDir =~ s?(.*\/)[^/]*$?\1?;
  175.                             if ($Ref =~ /http:\/\/localhost/i) {
  176.                                 $Ref =~ s?http://localhost:7999/(.*)$?$PRODUCTS_DIR/\1?;
  177.                                 #print "\t\tin http:$ShortDir/$Ref from $File\n";
  178.                                 if ($Ref !~ /cgi-bin/ && ! -s "$ShortDir/$Ref") {
  179.                                     &PrintHtml("<B>", "ERROR: Missing link $Ref from $File. Line = $LinePrint\n", "</B><BR>");
  180.                                 }
  181.                             } elsif ($Ref =~ /file:/i) {
  182.                                 $Ref =~ s?http://localhost:7999/(.*)$?$PRODUCTS_DIR/\1?;
  183.                                 #print "\t\tin file: $Ref from $File\n";
  184.                                 unless (-s "$Ref") {
  185.                                     &PrintHtml("<B>", "ERROR: Missing link $Ref from $File. Line = $LinePrint\n", "</B><BR>");
  186.                                 }
  187.                             } else {
  188.                                 #print "\t\tin else: $ShortDir/$Ref from $File\n";
  189.                                 if ($Ref !~ /^#/) {
  190.                                     unless ($Ref !~ /^#/ && -s "$ShortDir/$Ref") {
  191.                                         &PrintHtml("<B>", "ERROR: Missing link $Ref from $File. Line = $LinePrint\n", "</B><BR>");
  192.                                     }
  193.                                 }
  194.                             }
  195.                         }
  196.                         
  197.                     }
  198.                     if ($Line =~ /<IMG/i) {
  199.                         $Ref = $Line;
  200.                         $Ref =~ s/.*IMG.*SRC *= *"?([^" >]*)[" >].*/\1/i;
  201.                         #print "\t$Line\n\t->$Ref\n";
  202.                         if ($Ref eq $Line) {
  203.                             &PrintHtml("<B>",  "ERROR: Bug? in update.pl. File=$File\n", "</B><BR>");
  204.                             &PrintHtml("<DD>",  "\t$LinePrint\n\t->$Ref\n", "<BR>");
  205.                         }
  206.                         if ($Ref eq "") {
  207.                             &PrintHtml("<B>",  "ERROR: Bug? in update.pl. File=$File\n", "</B><BR>");
  208.                             &PrintHtml("<DD>",  "\t$LinePrint\n\t->$Ref\n", "<BR>");
  209.                         }
  210.                         #print "->$Ref\n";
  211.                         $ShortDir = $File;
  212.                         $ShortDir =~ s?(.*\/)[^/]*$?\1?;
  213.                         if ($Ref =~ /http:\/\/localhost/i) {
  214.                             $Ref =~ s?http://localhost:7999/(.*)$?$PRODUCTS_DIR/\1?;
  215.                             #print "\t\tin http:$ShortDir/$Ref from $File\n";
  216.                             if ($Ref !~ /cgi-bin/ && ! -s "$ShortDir/$Ref") {
  217.                                 &PrintHtml("<B>", "ERROR: Missing image $Ref from $File. Line = $LinePrint\n", "</B><BR>");
  218.                             }
  219.                         } elsif ($Ref =~ /file:/i) {
  220.                             $Ref =~ s?http://localhost:7999/(.*)$?$PRODUCTS_DIR/\1?;
  221.                             #print "\t\tin file: $Ref from $File\n";
  222.                             unless (-s "$Ref") {
  223.                                 &PrintHtml("<B>", "ERROR: Missing image $Ref from $File. Line = $LinePrint\n", "</B><BR>");
  224.                             }
  225.                         } else {
  226.                             #print "\t\tin else: $ShortDir/$Ref from $File\n";
  227.                             if ($Ref !~ /^#/) {
  228.                                 unless ($Ref !~ /^#/ && -s "$ShortDir/$Ref") {
  229.                                     &PrintHtml("<B>", "ERROR: Missing image $Ref from $File. Line = $LinePrint\n", "</B><BR>");
  230.                                 }
  231.                             }
  232.                         }
  233.                         
  234.                     }
  235.                     #$Line =~ tr/
  236.                 }
  237.                 close(HTMLFILE);
  238.             } else {
  239.                 &PrintHtml("<B>",  "ERROR: $File cannot be open\n", "</B><BR>");
  240.             }
  241.         }
  242.     }
  243. }
  244. ##############################################################################
  245. # CheckFiles:
  246. ##############################################################################
  247. sub CheckFiles
  248. {
  249.     $ListDir = `cd $PRODUCTS_DIR; ls`;
  250.     $ListDir =~ s/gui|SunSolutions|DEV|hotjava|tempjas|temp//g;
  251.     #$ListDir =~ s/\n+/ /g;
  252.     @filefields = split(/\s+/, $ListDir);
  253.     foreach $Dir (@filefields) {
  254.         unless (-s "$PRODUCTS_DIR/$Dir/_info") {
  255.             &PrintHtml("", "WARNING: _info file missing in $Dir\n", "<BR>");
  256.         }
  257.     }
  258.     #print $ListDir;
  259. }
  260.  
  261. ##############################################################################
  262. # InitCompInfo:
  263. ##############################################################################
  264. sub InitCompInfo
  265. {
  266.     #$ListDir = `ls $PRODUCTS_DIR/[CD]*/_info`;
  267.     $ListDir = `ls $PRODUCTS_DIR/*/_info`;
  268.     #print "ls $PRODUCTS_DIR/*/_info";
  269.  
  270.     @filefields = split(/\s+/, $ListDir);
  271.     #print $filefields;
  272.     foreach $INFOFILENAME (@filefields) {
  273.         $ShortDir = $INFOFILENAME;
  274.         $ShortDir =~ s?.*/([^/]*)/_info$?\1?;
  275.         if (-l "$PRODUCTS_DIR/$ShortDir") {
  276.             next;
  277.         }
  278.         if (-s $INFOFILENAME && open (INFOFILE, $INFOFILENAME)) {
  279.             if ($REPORT ne "true") {
  280.                 #&PrintHtml("<DD><DD>", "\t\tReading $INFOFILENAME\n", "<BR>");
  281.             }
  282.     
  283.                     while (<INFOFILE>) {
  284.                         $Line = $_;
  285.                 unless ($Line =~ /^[     ]*$/ || $Line =~ /^#/) {
  286.                     last;
  287.                 }
  288.             }
  289.                     ($Companies{$ShortDir}, $Description{$ShortDir}, $Platform{$ShortDir}, $ChosenCat{$ShortDir}, $WebSite{$ShortDir}, $Email{$ShortDir}, $HomePageName{$ShortDir}) = split(/\^/, $Line);
  290.  
  291.             if ($CHECK eq "true") {
  292.                 $_ = $Line;
  293.                 #print "Line=$Line\n";
  294.                 $count = tr/^//;
  295.                 #print "$_: $count\n";
  296.                 if ($count != 7) {
  297.                     &PrintHtml("<B>", "ERROR: Not the correct number of parameters in the first line of $INFOFILENAME\n", "<BR>");
  298.                 }
  299.                 if ($Platform{$ShortDir} =~ /demo|testdrive|install/ && ! -d "$PRODUCTS_DIR/$ShortDir/_install") {
  300.                     &PrintHtml("<B>", "ERROR: Missing _install directory in $ShortDir\n", "<BR>");
  301.                 }
  302.                 if ($HomePageName{$ShortDir} eq "") {
  303.                     &PrintHtml("<B>", "ERROR: Missing Home page name in $ShortDir\n", "<BR>");
  304.                 } else {
  305.                     unless (-s "$PRODUCTS_DIR/$ShortDir/$HomePageName{$ShortDir}") {
  306.                         &PrintHtml("<B>", "ERROR: $HomePageName{$ShortDir} file missing in $ShortDir\n", "<BR>");
  307.                     }
  308.                 }
  309.             }
  310.             $ProdNum = 1;
  311.                     while (<INFOFILE>) {
  312.                 if ($_ =~ /^[     ]*$/ || $_ =~ /^#/) {
  313.                     next;
  314.                 }
  315.                 if ($CHECK eq "true") {
  316.                     unless ($_ =~ /^.*[^     ].*\^$/) {
  317.                         chop($_);
  318.                         &PrintHtml("<B>", "ERROR: Wrong line in $INFOFILENAME: \"$_\"\n", "<BR>");
  319.                     }
  320.                 }
  321.                             $Product=$_;
  322.                             chop($Product);
  323.                             chop($Product);
  324.                             $Products{$ShortDir . $ProdNum} = $Product;
  325.                 #print "jp = $Product\n";
  326.                 $ProdNum++;
  327.                     }
  328.             close(INFOFILE);
  329.             } else {
  330.                     &PrintHtml("", "Can't open $INFOFILENAME\n", "<BR>");
  331.         }
  332.     }
  333.     #foreach $ShortDir (sort keys(%Companies)) {
  334.         #print "$Companies{$ShortDir}, $Description{$ShortDir}, $Platform{$ShortDir}, $ChosenCat{$ShortDir}, $WebSite{$ShortDir}, $Email{$ShortDir}, $HomePageName{$ShortDir}\n";
  335.     #}
  336.     #%RevComp = reverse %Companies;
  337.     #if (@RevComp != @Companies) {
  338.         #print "WARNING: two directory with the same company name->possible problem!\n";
  339.     #}
  340.     %RevProd = reverse %Products;
  341.     if (@RevProd != @Products) {
  342.         &PrintHtml("", "WARNING: two products with the same name->possible problem!\n", "<BR>");
  343.     }
  344.     #print @Products;
  345.     foreach $ShortDir (sort keys(%Products)) {
  346.         print "$ShortDir, $Products{$ShortDir}\n";
  347.     }
  348.     #foreach $ShortDir (sort keys(%RevProd)) {
  349.         #print "$ShortDir, $RevProd{$ShortDir}\n";
  350.     #}
  351.     #foreach $ShortDir (sort keys(%RevComp)) {
  352.         #print "$RevComp{ShortDir}\n";
  353.     #}
  354.     #print %RevComp;
  355. }
  356.  
  357. sub FilteredSortCat
  358. {
  359.     ($al = &getField($MainCat{$a}, "1")) =~ tr/A-Z/a-z/;
  360.     $al =~ s/^the //;
  361.     $al =~ s/^\.//;
  362.     $al =~ s/^[     ]*//;
  363.  
  364.     ($bl = &getField($MainCat{$b}, "1")) =~ tr/A-Z/a-z/;
  365.     $bl =~ s/^the //;
  366.     $bl =~ s/^\.//;
  367.     $bl =~ s/^[     ]*//;
  368.  
  369.     $al cmp $bl;
  370. }
  371. sub FilteredSort
  372. {
  373.     ($al = $a) =~ tr/A-Z/a-z/;
  374.     $al =~ s/^the //;
  375.     $al =~ s/^\.//;
  376.     $al =~ s/^[     ]*//;
  377.  
  378.     ($bl = $b) =~ tr/A-Z/a-z/;
  379.     $bl =~ s/^the //;
  380.     $bl =~ s/^\.//;
  381.     $bl =~ s/^[     ]*//;
  382.  
  383.     $al cmp $bl;
  384. }
  385. sub FilteredSortComp
  386. {
  387.     $al = $Companies{$a};
  388.     $al =~ tr/A-Z/a-z/;
  389.     $al =~ s/^the //;
  390.     $al =~ s/^\.//;
  391.     $al =~ s/^[     ]*//;
  392.  
  393.     $bl = $Companies{$b};
  394.     $bl =~ tr/A-Z/a-z/;
  395.     $bl =~ s/^the //;
  396.     $bl =~ s/^\.//;
  397.     $bl =~ s/^[     ]*//;
  398.  
  399.     #print STDOUT "$al =? $bl\n";
  400.     $al cmp $bl;
  401. }
  402.  
  403. ##############################################################################
  404. # CreateSoft
  405. ##############################################################################
  406. sub CreateSoft
  407. {
  408.     &PrintHtml("<BR>", "\nCreating Software page...\n", "<BR>");
  409.     $SOFTFILENAME = "$CAT_DIR/Software.html";
  410.     $SOFTHEADFILENAME = "$CAT_DIR/Software.head.html";
  411.     if (open (SOFTFILE, "> $SOFTFILENAME") && open(SOFTHEADFILE, "> $SOFTHEADFILENAME")) {
  412.         $old = select(SOFTHEADFILE);
  413.         $~ = "SOFTWAREHEAD"; 
  414.         write SOFTHEADFILE;   
  415.         close (SOFTHEADFILE); 
  416.  
  417.         select(SOFTFILE);
  418.         $~ = "CATBEGIN";
  419.         write SOFTFILE;
  420.  
  421.         $Letter = "0";
  422.         foreach $Cat (sort FilteredSortCat keys(%MainCat)) {
  423.             unless ( &getField($MainCat{$Cat}, "1") eq "") {
  424.                 $CatAb = &getField($MainCat{$Cat}, "1");
  425.                 $CatAb =~ tr/a-z/A-Z/;
  426.                 $CatAb =~ s/^THE //;
  427.                 $CatAb =~ s/^\.//;
  428.                 #print STDOUT "$CatAb, $Letter\n";
  429.                 unless ($CatAb =~ /^$Letter/) {
  430.                     $Letter = substr($CatAb, 0, 1);
  431.                     print SOFTFILE "<DT><A NAME=\"$Letter\"><B>$Letter</B></A>";
  432.                     #push (@Letters, $Letter);
  433.  
  434.                 }
  435.                   #height of each category head, default 150            
  436.                     if (&getField($MainCat{$Cat}, "3") == "") {
  437.                      $height = "150";
  438.                 } else {
  439.                      $height = &getField($MainCat{$catword}, "3");
  440.                 }    
  441.                     $CG = &getField($MainCat{$Cat}, "1");    
  442.                 print SOFTFILE "<DD><a href=\"http://localhost:7999/cgi-bin/show.bat/?DEST=$Cat&SIZE=$height\"><B>$CG</B></a><br>\n";
  443.             }
  444.         }
  445.         $~ = "CATEND";
  446.         write SOFTFILE;
  447.  
  448.         close (SOFTFILE);
  449.         select($old);
  450.     }
  451.     &PrintHtml("<DD>", "\tSoftware.html page created.\n", "<BR>");
  452. }
  453.  
  454. ##############################################################################
  455. # CreateCat: 
  456. ##############################################################################
  457. sub CreateCat
  458. {
  459.  
  460.     foreach $catword  ( sort keys(%MainCat)) {
  461.         #chop $catword;
  462.         &PrintHtml("<BR>", "\nCreating $catword category page ...\n", "<BR>");
  463.              $CATFILENAME = "$CAT_DIR/$catword.html";
  464.              $CATHEADFILENAME = "$CAT_DIR/$catword.head.html";
  465.         #print STDOUT "Bef open, $CATFILENAME, $CATHEADFILENAME\n";
  466.         if (open (CATFILE, "> $CATFILENAME") && open(CATHEADFILE, "> $CATHEADFILENAME")) {
  467.             $old = select(CATFILE);
  468.  
  469.             $~ = "CATBEGIN";
  470.             write CATFILE;
  471.             $Letter = "0";
  472.             @Letters = ();
  473.             foreach $ShortName (sort FilteredSortComp keys(%Companies)) {
  474.                 $Comp = $Companies{$ShortName};
  475.                 #print STDOUT "$ShortName, $Comp\n";
  476.                 
  477.                 unless ($ChosenCat{$ShortName} =~ /$catword/ 
  478.                     || $catword eq "companies") {
  479.                     next;
  480.                 }
  481.                 $CompAb = $Comp;
  482.                 $CompAb =~ tr/a-z/A-Z/;
  483.                 $CompAb =~ s/^THE //;
  484.                 $CompAb =~ s/^\.//;
  485.                 unless ($CompAb =~ /^$Letter/) {
  486.                     $Letter = substr($CompAb, 0, 1);
  487.                     print CATFILE "<DT><A NAME=\"$Letter\"><B>$Letter</B></A>";
  488.                     push (@Letters, $Letter);
  489.                 }
  490.  
  491.                     #print CATFILE "     <DD><a HREF=http://localhost:7999/$ShortName/$HomePageName{$ShortName}><B>$Comp</B></a> $Description{$ShortName}\n";
  492.                     print CATFILE "     <DD><a HREF=http://localhost:7999/$ShortName/$FRAMEBASICNAME><B>$Comp</B></a> $Description{$ShortName}\n";
  493.                                 print "<dd><b><i>", $Products{$ShortName . "1"}, "</i></b>\n" ;                             
  494.                                 if ($Products{$ShortName . "2"} ne "") {
  495.                                         print ", <b><i>", $Products{$ShortName . "2"}, "</i></b>\n" ;
  496.                                 }
  497.                                 if ($Products{$ShortName . "3"} ne "") {
  498.                                         print ", <b><i>", $Products{$ShortName . "3"}, "</i></b>\n" ;
  499.                                 }
  500.                                 if ($Products{$ShortName . "4"} ne "") {
  501.                                         print ", <b><i>", $Products{$ShortName . "4"}, "</i></b>\n" ;
  502.                                 }
  503.                                 if ($Products{$ShortName . "5"} ne "") {
  504.                                         print ", <b><i>", $Products{$ShortName . "5"}, "</i></b>\n" ;
  505.                                 }
  506. #
  507. #        This is for testdrive, install, and demo images
  508. #
  509.                 if ($Platform{$ShortName} =~ /demo/ ) {
  510.                 print CATFILE "<img src=\"http://localhost:7999/SunSolutions/images/demo.gif\">";
  511.                 }
  512.                                 if ($Platform{$ShortName} =~ /testdrive/ ) { 
  513.                                 print CATFILE "<img src=\"http://localhost:7999/SunSolutions/images/testdrive.gif\">";
  514.                                 } 
  515.                                 if ($Platform{$ShortName} =~ /install/ ) { 
  516.                 print CATFILE "<img src=\"http://localhost:7999/SunSolutions/images/install.gif\">";
  517.                                 } 
  518.                 print CATFILE "\n";
  519.  
  520.                 }
  521.          
  522.         
  523.             $~ = "CATEND";
  524.             write CATFILE;
  525.             close (CATFILE);
  526.         
  527.             if ($Special{$catword} eq "") {
  528.                 $AppWidth="596"; 
  529.                  $AppHeight="75";
  530.             } else {
  531.                 @tmp=split(/,/,$Special{$catword});
  532.                                 $AppWidth=@tmp[0]; 
  533.                 $AppHeight=@tmp[1];
  534.             } 
  535.                 
  536.                         #&PrintHtml("<DD>", "\ttest $AppWidth $AppHeight $Special{$catword} $catword\n", "<BR>");
  537.  
  538.             select(CATHEADFILE);
  539.             $~ = "CATHEADERBEGIN";
  540.             write CATHEADFILE;
  541.                 $GI = &getField($MainCat{$catword}, "2");
  542.         print CATHEADFILE "<IMG border=0 SRC=\"$DIR_IMAGES/$GI\"  alt=\"\" USEMAP=#banner ismap>";
  543.         print CATHEADFILE "<AREA SHAPE=\"RECT\" HREF=\"?DEST=companies\" COORDS=7,12,69,40>\n";
  544.         print CATHEADFILE "<AREA SHAPE=\"RECT\" HREF=\"?DEST=products\" COORDS=3,48,69,80>\n";
  545.         print CATHEADFILE "<AREA SHAPE=\"RECT\" HREF=\"http:\/\/localhost:7999\/SunSolutions\/docs\/info\/Info.html\" COORDS=73,6,142,46>\n";
  546.         print CATHEADFILE "<AREA SHAPE=\"RECT\" HREF=\"http:\/\/localhost:7999\/SunSolutions\/index.html\" COORDS=72,40,143,85>\n";
  547.         $~ = "CATHEADERMIDDLE";
  548.         write CATHEADFILE;
  549.  
  550.                 #print CATHEADFILE `cat $Header{$catword}`;
  551.             unless (&getField($MainCat{$Cat}, "1") eq "") {
  552.  
  553.  
  554.             }
  555.     
  556.             #@Letters = ("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z");
  557.             if (@Letters > 15) {
  558.                 print CATHEADFILE "<B>Go to:  ";
  559.                 foreach $letter (@Letters) {
  560.                         $CG = &getField($MainCat{$Cat}, "1");
  561.                         $CH = &getField($MainCat{$catword}, "3");
  562.                     print CATHEADFILE "<A HREF=\"?DEST=$catword&L=$letter" . (($CH eq "") ? "&SIZE=180" : "&SIZE=$CH") . "\">$letter</A>\n";
  563.                 }
  564.             }
  565. # This is for Category banner ads.
  566.             if (&getField($MainCat{$catword}, "4") ne "") {
  567.             $AdFile = "../".&getField($MainCat{$catword}, "4")."/ad/ad.html";
  568.             print STDOUT "\tBanner ad for $AdFile created ...\n";
  569.             print CATHEADFILE "<center>"; 
  570.               if ( -r $AdFile ) {
  571.                           open (AD, "$AdFile");
  572.                            while (<AD>) {
  573.                                 print CATHEADFILE $_;
  574.                    }
  575.               close (AD);    
  576.               } else { print CATHEADFILE "<h1>Bad $AdFile</h1>";
  577.                  print "Error: Bad $AdFile";
  578.               } 
  579.             print CATHEADFILE "</center>"; 
  580.             } 
  581.             $~ = "CATHEADEREND";
  582.             write CATHEADFILE;
  583.             close (CATHEADFILE);
  584.      
  585.             &PrintHtml("<DD>", "\t$catword category page created.\n", "<BR>");
  586.  
  587.             select($old);
  588.         } else {
  589.             die "\nERROR: Cannot write $CATFILENAME or $CATHEADFILENAME!\nTry to be superuser!\n\n";
  590.         }
  591.     }
  592. }
  593.  
  594. ##############################################################################
  595. # CreateReport:
  596. ##############################################################################
  597. sub CreateReport
  598. {
  599.     $TotalSize = 0;
  600.     foreach $ShortName (sort FilteredSortComp keys(%Companies)) {
  601.         #$ShortName = $RevComp{$Comp};    
  602.         $Comp = $Companies{$ShortName};
  603.         &PrintHtml("<B>", "$Comp:\n", "</B><BR>");
  604.         &PrintHtml("<DD>", "\tProduct1: " . $Products{$ShortName . "1"} . "\n", "<BR>");
  605.         if ($Products{$ShortName . "2"} ne "") {
  606.             &PrintHtml("<DD>", "\tProduct2: " . $Products{$ShortName . "2"} . "\n", "<BR>");
  607.         }
  608.         if ($Products{$ShortName . "3"} ne "") {
  609.             &PrintHtml("<DD>", "\tProduct3: " . $Products{$ShortName . "3"} . "\n", "<BR>");
  610.         }
  611.         if ($Products{$ShortName . "4"} ne "") {
  612.             &PrintHtml("<DD>", "\tProduct4: " . $Products{$ShortName . "4"} . "\n", "<BR>");
  613.         }
  614.         if ($Products{$ShortName . "5"} ne "") {
  615.             &PrintHtml("<DD>", "\tProduct5: " . $Products{$ShortName . "5"} . "\n", "<BR>");
  616.         }
  617.         $Size = `du -ks $PRODUCTS_DIR/$ShortName`;
  618.         chop $Size;
  619.         $Size =~ s/(\d*).*/\1/;
  620.         &PrintHtml("<DD>", "\tTotal size: $Size Kb\n", "<BR>");
  621.         $TotalSize += $Size;
  622.         if ( $Platform{$ShortName} =~ /demo|testdrive|install/) {
  623.             &PrintHtml("<DD>", "\t", "");
  624.             if ($Platform{$ShortName} =~ /demo/) {
  625.                 &PrintHtml("", "Slide-show, ", "");
  626.             }
  627.             if ($Platform{$ShortName} =~ /testdrive/) {
  628.                 &PrintHtml("", "Demo version, ", "");
  629.             }
  630.             if ($Platform{$ShortName} =~ /install/) {
  631.                 &PrintHtml("", "Unlockable version, ", "");
  632.             }
  633.             &PrintHtml("", "\n", "<BR>");
  634.         }
  635.     }
  636.     &PrintHtml("<BR><BR>", "\n\nTotal size for all companies: $TotalSize Kb\n", "<BR>");
  637.     $Size = `du -ks $PRODUCTS_DIR/$ShortName`;
  638.     chop $Size;
  639.     $Size =~ s/(\d*).*/\1/;
  640.     &PrintHtml("", "Total size for .products: $Size Kb\n", "<BR>");
  641. }
  642.  
  643. ##############################################################################
  644. # CreateApplet:
  645. ##############################################################################
  646. sub CreateApplet
  647. {
  648.     &PrintHtml("", "\nBuilding Control bar applets ...\n", "<BR>");
  649.     $TmpFile = "/tmp/tmpupdateapplet";
  650.     foreach $Comp (sort keys(%Companies)) {
  651.         $FRAMEFILENAME = "$PRODUCTS_DIR/$Comp/$FRAMEBASICNAME";
  652.         if (open (FRAMEFILE, "> $FRAMEFILENAME")) {
  653.             print FRAMEFILE "<html> <head>\n<title>Sun Solutions April 1997: $Companies{$Comp}</title>\n</head>\n<FRAMESET ROWS=\"50,*\">\n<FRAME SCROLLING=\"no\" TARGET=\"_top\" NAME=\"menu\" NORESIZE MARGINHEIGHT=4 SRC=\"SunSolutions.head.html\">\n<FRAME SCROLLING=\"yes\" NAME=\"content\" NORESIZE MARGINHEIGHT=4 SRC=\"$HomePageName{$Comp}\">\n</NOFRAME> </FRAMESET> </HTML>\n";
  654.             close(FRAMEFILE);
  655.         } else {
  656.             &PrintHtml("", "ERROR: Couldn't write $FRAMEFILENAME\n", "<BR>");
  657.         }
  658.  
  659.         $HEADFILENAME = "$PRODUCTS_DIR/$Comp/$HEADBASICNAME";
  660.         if (open (HEADFILE, "> $HEADFILENAME")) {
  661.             print HEADFILE "<html> <head>\n<title>Sun Solutions April 1997</title>\n</head>\n<BODY BACKGROUND=../SunSolutions/images/back3.gif>\n<CENTER>\n<applet code=ImageMap.class width=596 height=36>\n<param name=highlight value=\"brighter60\">";
  662.             
  663.             $TestGif = 0;
  664.             if ($Platform{$Comp} =~ /demo/) {
  665.                 $TestGif ++;
  666.             }
  667.             if ($Platform{$Comp} =~ /testdrive/) {
  668.                 $TestGif += 2;
  669.             }
  670.             if ($Platform{$Comp} =~ /install/) {
  671.                 $TestGif += 4;
  672.             }
  673.             @BarFileNames = ("none", "rd", "td", "tdrd", "ts", "tsrd", "tdts", "samplebar");
  674.             print HEADFILE "<param name=img value=\"$PRODUCTS_DIR/SunSolutions/images/$BarFileNames[$TestGif].gif\">\n";
  675.  
  676.             print HEADFILE "<param name=area1 value=\"HrefButtonArea,0,0,80,35,http://localhost:7999/cgi-bin/show.bat/?DEST=companies\" >\n";
  677.             print HEADFILE "<param name=area2 value=\"HrefButtonArea,81,0,84,35,http://localhost:7999/SunSolutions/search.html\" >\n";
  678.             print HEADFILE "<param name=area3 value=\"HrefButtonArea,164,0,83,35,http://localhost:7999/SunSolutions/docs/info/Info.html\" >\n";
  679.             print HEADFILE "<param name=area4 value=\"HrefButtonArea,267,0,85,35,http://localhost:7999/cgi-bin/req_more_info.exe?$Comp\" >\n";
  680.  
  681.             $Area = 5;
  682.             if ($Platform{$Comp} =~ /demo/) {
  683.                 print HEADFILE "<param name=area$Area value=\"HrefButtonArea,350,0,83,35,http://localhost:7999/$Comp/_install/install_show.sh\">\n";
  684.                 $Area ++;
  685.             }
  686.             if ($Platform{$Comp} =~ /testdrive/) {
  687.                 print HEADFILE "<param name=area$Area value=\"HrefButtonArea,434,0,81,35,http://localhost:7999/$Comp/_install/run.sh\">\n";
  688.                 $Area ++;
  689.             }
  690.             if ($Platform{$Comp} =~ /install/) {
  691.                 print HEADFILE "<param name=area$Area value=\"HrefButtonArea,515,0,83,35,http://localhost:7999/$Comp/_install/install.sh\">\n";
  692.             }
  693.             
  694.             print HEADFILE "</applet> </CENTER> </BODY> </HTML>\n";
  695.  
  696.  
  697.             close(HEADFILE);
  698.         } else {
  699.             &PrintHtml("", "ERROR: Couldn't write $HEADFILENAME\n", "<BR>");
  700.         }
  701.  
  702.              #$HOMEFILENAME = "../$Comp/" . $HomePageName{$ShortDir};
  703.         #if (open (HOMEFILE, "$HOMEFILENAME")) {
  704.             #open (TMPFILE, "$TmpFile");
  705.             #while (<TMPFILE>) {
  706.                 #$Line = $_;
  707.                 #if ($Line =~ /^<applet class=cdbar/i) {
  708.                     #while (! <HOMEFILE> =~ /^<\/applet>/i) {
  709.                     #}
  710.                     #$TestGif = 0;
  711.                     #if ($Platform{$Comp} =~ /demo/) {
  712.                         #$TestGif ++;
  713.                     #}
  714.                     #if ($Platform{$Comp} =~ /testdrive/) {
  715.                         #$TestGif ++;
  716.                     #}
  717.                     #if ($Platform{$Comp} =~ /install/) {
  718.                         #$TestGif ++;
  719.                     #}
  720.                     #print TMPFILE "<app class=CDbar img=\"http://localhost:7999/SunSolutions/images/none.gif";
  721.                     #print TMPFILE "highlight=brighter60";
  722. ##            print "area1=HrefButtonArea,0,0,80,35,http://localhost:7999/SunSolutions/index.html" >> applet
  723. ##            print "area2=HrefButtonArea,81,0,84,35,http://localhost:7999/categories/companies.html" >> applet
  724. ##            print "area3=HrefButtonArea,164,0,83,35,http://localhost:7999/SunSolutions/docs/info/Info.html" >> applet
  725. ##            print "area4=HrefButtonArea,267,0,85,35,http://localhost:7999/DEV/disabled.html" >> applet
  726. ##            print ">" >> applet
  727. ##                        breaksw    
  728. ## 
  729.                     #next;
  730.                 #}
  731.                 #print TMPFILE $Line;
  732.             #}
  733.         #}
  734.         #rename($TmpFile, $HOMEFILENAME);
  735.     }
  736.     &PrintHtml("", "\tControl bar applets built...\n", "<BR>");
  737. }
  738. ###############################################################################
  739. ## CreateNames
  740. ###############################################################################
  741. sub CreateNames
  742. {
  743. open (REALNAMES, "> $PRODUCTS_DIR/.bin/real_names.txt");
  744.    write REALNAMES;
  745.     foreach $comp (keys(%Companies)) {
  746.         print REALNAMES "$comp\t$Companies{$comp}\n";
  747.     }
  748. # this is for directories without _info files
  749.    print REALNAMES "SunProducts\tSun Products\n";
  750.    print REALNAMES ".Internet\tInternet Articles\n";
  751. close(REALNAMES);
  752. }
  753.  
  754. ###############################################################################
  755. ## CreateProduct
  756. ###############################################################################
  757. sub CreateProduct
  758. {
  759.     &PrintHtml("<BR>", "\nCreating Products page...\n", "<BR>");
  760.  
  761.          $PRODFILENAME = "$CAT_DIR/products.html";
  762.          $PRODHEADFILENAME = "$CAT_DIR/products.head.html";
  763.     if (open (PRODFILE, "> $PRODFILENAME") && open(PRODHEADFILE, "> $PRODHEADFILENAME")) {
  764.         $old = select(PRODFILE);
  765.  
  766.         $~ = "CATBEGIN";
  767.         write PRODFILE;
  768.         $Letter = "0";
  769.         @Letters = ();
  770.         foreach $Prod (sort FilteredSort keys(%RevProd)) {
  771.             $ShortName = substr($RevProd{$Prod}, 0, length($RevProd{$Prod}) - 1);    
  772.             
  773.             #print STDOUT "        Prod=$Prod, ShortName=$ShortName.\n";
  774.             $ProdAb = $Prod;
  775.             $ProdAb =~ tr/a-z/A-Z/;
  776.             $ProdAb =~ s/^THE //;
  777.             $ProdAb =~ s/^\.//;
  778.             $ProdAb =~ s/^[     ]*//;
  779.             unless ($ProdAb =~ /^$Letter/) {
  780.                 $Letter = substr($ProdAb, 0, 1);
  781.                 print PRODFILE "<DT><A NAME=\"$Letter\"><B>$Letter</B></A>";
  782.                 push (@Letters, $Letter);
  783.             }
  784.  
  785.                 #print PRODFILE "<DD><A HREF=http://localhost:7999/$ShortName/$HomePageName{$ShortName}><B>$Prod</B></A> <I>from</I> <B>$Companies{$ShortName}</B>\n";
  786.                 print PRODFILE "<DD><A HREF=http://localhost:7999/$ShortName/$FRAMEBASICNAME><B>$Prod</B></A> <I>from</I> <B>$Companies{$ShortName}</B>";
  787. #
  788. #     this is for testdrive, install, demo icons
  789. #
  790.                                 if ($Platform{$ShortName} =~ /demo/ ) {
  791.                                 print PRODFILE "<img src=\"http://localhost:7999/SunSolutions/images/demo.gif\">";
  792.                                 }
  793.                                 if ($Platform{$ShortName} =~ /testdrive/ ) {
  794.                                 print PRODFILE "<img src=\"http://localhost:7999/SunSolutions/images/testdrive.gif\">";
  795.                                 }
  796.                                 if ($Platform{$ShortName} =~ /install/ ) {
  797.                                 print PRODFILE "<img src=\"http://localhost:7999/SunSolutions/images/install.gif\">";
  798.                                 }
  799.                                 print PRODFILE "\n";
  800.  
  801.             }
  802.      
  803.         $~ = "CATEND";
  804.         write PRODFILE;
  805.         close (PRODFILE);
  806.  
  807.         select(PRODHEADFILE);
  808.         $~ = "CATHEADERBEGIN";
  809.         write PRODHEADFILE;
  810.                 print PRODHEADFILE "<IMG border=0 SRC=\"$DIR_IMAGES/products.gif\"  alt=\"\" USEMAP=#banner ismap>";
  811.         print PRODHEADFILE "<MAP Name=\"banner\">";
  812.                 print PRODHEADFILE "<AREA SHAPE=\"RECT\" HREF=\"?DEST=companies\" COORDS=7,12,69,40>\n";
  813.                 print PRODHEADFILE "<AREA SHAPE=\"RECT\" HREF=\"?DEST=products\" COORDS=3,48,69,80>\n";
  814.                 print PRODHEADFILE "<AREA SHAPE=\"RECT\" HREF=\"http:\/\/localhost:7999\/SunSolutions\/docs\/info\/Info.html\" COORDS=73,6,142,46>\n";
  815.                 print PRODHEADFILE "<AREA SHAPE=\"RECT\" HREF=\"http:\/\/localhost:7999\/SunSolutions\/index.html\" COORDS=72,40,143,85>\n";
  816.                 print PRODHEADFILE "<AREA SHAPE=\"RECT\" HREF=\"http://localhost:7999/SunSolutions/index.html\" COORDS=200,0,595,74>\n";
  817.  
  818.         print PRODHEADFILE "</MAP></td><tr><td><center>";
  819.  
  820.         #@Letters = ("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z");
  821.         print PRODHEADFILE "<B><FONT size=\"4\"> Go to:\n";
  822.         foreach $letter (@Letters) {
  823. # below changed by Marc
  824.             #print PRODHEADFILE "<A HREF=\"?DEST=$catword&L=$letter\">$letter</A>\n";
  825.             print PRODHEADFILE "<A HREF=\"?DEST=products&L=$letter\">$letter</A>\n";
  826.         }
  827.         $~ = "CATHEADEREND";
  828.         write PRODHEADFILE;
  829.         close (PRODHEADFILE);
  830.  
  831.         &PrintHtml("<DD>", "\tproducts.html page created.\n", "<BR>");
  832.  
  833.         select($old);
  834.     }
  835. }
  836. ##############################################################################
  837. # MAIN PART: Decode the parameters and calls the correct subfunctions
  838. ##############################################################################
  839. #$arg0=$0
  840. #$DIR=$arg0:h
  841. #$ProgName=$arg0:t
  842.  
  843. #if ("X$DIR" == "X$ProgName") {
  844.     #$DIR='.'
  845. #}
  846.  
  847. #if (-e "./$ProgName") {
  848.     #$DIR=$cwd
  849. #}
  850.  
  851. #cd  $DIR
  852. #print `pwd`;
  853.  
  854. #
  855. # Create the category pages seen in the categories.txt file
  856. #
  857.  
  858. #foreach $en (sort keys %ENV) {
  859.     #print "$en = $ENV{$en}\n";
  860. #}
  861.  
  862.  
  863.     $CATS = "false";
  864.     $APPLETS = "false";
  865.     $COMP = "false";
  866.     $CHECK = "false";
  867.     $REPORT = "false";
  868.     $HTML_FORMAT = "false";
  869.     $PROD = "false";
  870.     $SOFT = "false";
  871.     $PLATFORM = "sparc";
  872.  
  873.     $DIR_IMAGES = "http://localhost:7999/SunSolutions/images/";
  874.     $PRODUCTS_DIR = "../";
  875.  
  876.     # parse command line arguements
  877.  
  878.     #print "Arg=@ARGV.\n";
  879.     @ARGREPORT = @ARGV;
  880.     if (@ARGV == 0) {
  881.         @ARGV=("-?");
  882.     }
  883.  
  884.         while ($ARGV[0] =~ /^-/) {
  885.             $_ = shift;
  886.             #print "Arg=$_.\n";
  887.             if (/^-cats$/) {
  888.                 $CATS = "true";
  889.             } elsif (/^-applets/) {
  890.                 $APPLETS = "true";
  891.             } elsif (/^-comp/) {
  892.                 $COMP = "true";
  893.             } elsif (/^-checkall/) {
  894.                 $CHECK = "true";
  895.                 $CHECKLINKS = "true";
  896.             } elsif (/^-checklinks/) {
  897.                 $CHECKLINKS = "true";
  898.             } elsif (/^-check/) {
  899.                 $CHECK = "true";
  900.             } elsif (/^-soft/) {
  901.                 $SOFT = "true";
  902.             } elsif (/^-report/) {
  903.                 $REPORT = "true";
  904.             } elsif (/^-html/) {
  905.                 $HTML_FORMAT = "true";
  906.                         } elsif (/^-names/) {
  907.                                 $NAMES = "true";
  908.             } elsif (/^-dir/) {
  909.                 $PRODUCTS_DIR = ($1 ? $1 : shift);
  910.                 unless (-s $PRODUCTS_DIR) {
  911.                     die "ERROR: $PRODUCTS_DIR is not a directory\n";
  912.                 }
  913.             } elsif (/^-prod/) {
  914.                 $PROD = "true";
  915.             } elsif (/^-all/) {
  916.                 $PROD = "true" ;
  917.                 $COMP = "true";
  918.                 $SOFT = "true";
  919.                 $APPLETS = "true";
  920.                 $CATS = "true";
  921.                 $NAMES = "true";
  922.             } elsif (/^-x86/) {
  923.                 $PLATFORM = x86;
  924.                 $SRC_DIR = "../../../x86.image";
  925.             } elsif (/^-[?Hh]/) {
  926.                 die "Usage: update.pl [ -cats | -applets | -soft | -prod | -all | -dir dirname | -x86  | -report | -html | -names | -check]\n\tall: = -cats -prod -applets\n\tapplets: creates an applet in the customer home page.\n\tcats: creates the category and company pages.\n\tcheck: check the _info file, and other things for errors.\n\tdir: gives the directory where the companies are located.\n\thtml: when -report is selected, creates an output in HTML format.\n\tnames: create list of company names keyed on directory name.\n\tprod: creates the product page.\n\treport: creates a report for all companies.\n\tsoft: creates the Software pages\n\tx86: for future usage.\n";
  927.             } else {
  928.                 die "Unrecognized switch: $_ (try -?)\n";
  929.             }
  930.         }
  931.  
  932. &PrintHtml("<HTML> <HEAD> <title>Sun Solutions - status on " . `date` . "</title> </HEAD> <BODY BACKGROUND=../SunSolutions/images/back3.gif bgcolor=\"#DDDDDD\"><H1>", "Sun Solutions - status on " . `date` . "\n", "</H1>");
  933.  
  934.  
  935. # check if root user
  936. if ( $ENV{"USER"} ne "root" ) {
  937.         &PrintHtml("", "WARNING: This program should be run as root user.\n", "<BR>");
  938.     }
  939.  
  940.  
  941.     if ($REPORT ne "true") {
  942.         $HostName = `hostname`;
  943.         chop $HostName;
  944.         &PrintHtml("", "\nUpdating Sun Solutions on $HostName:\n\n", "<BR>");
  945.     if (open (REPORTFILE, ">> $PRODUCTS_DIR/.update.txt")) {
  946.         $Date = `date`;
  947.         chop $Date;
  948.         print REPORTFILE "update by " . $ENV{"USER"} . " on $Date from $HostName\n\tparams: ";
  949.         while (@ARGREPORT) {
  950.             print REPORTFILE "$ARGREPORT[0], ";
  951.             shift @ARGREPORT;
  952.         }
  953.         print REPORTFILE "\n\n";
  954.         close (REPORTFILE);
  955.     } else {
  956.         &PrintHtml("", "WARNING: Cannot open $PRODUCTS_DIR/.update.txt\n", "<BR>");
  957.     }
  958. }
  959.  
  960. &InitCompInfo();
  961.  
  962. $CAT_DIR = "$PRODUCTS_DIR/categories";
  963. $FRAMEBASICNAME = "SunSolutions.frame.html";
  964. $HEADBASICNAME = "SunSolutions.head.html";
  965. #print $CAT_DIR;
  966. if ( ! -d $CAT_DIR ) {
  967.     mkdir($CAT_DIR, 0777);
  968. }
  969.  
  970. if ( $CHECK eq "true" ) {
  971.     &CheckFiles();
  972. }
  973. if ( $NAMES eq "true" ) {
  974.         &CreateNames();  
  975. }
  976.  
  977.  
  978. if ( $CHECKLINKS eq "true" ) {
  979.     &CheckLinks();
  980. }
  981.  
  982. if ( $CATS eq "true" ) {
  983.     &CreateCat();
  984. }
  985.  
  986. if ( $SOFT eq "true" ) {
  987.     &CreateSoft();
  988. }
  989.  
  990. #
  991. # Get all SunSolutions menu bar components and put in file 
  992. # for building of front page applet 
  993. #
  994. if ( $APPLETS eq "true" ) {
  995.     &CreateApplet();
  996. }
  997.  
  998. if ( $PROD eq "true" ) {
  999.     &CreateProduct();
  1000. }
  1001.  
  1002. if ( $REPORT eq "true" ) {
  1003.     &CreateReport();
  1004. }
  1005.  
  1006. #
  1007. # Compile list of companies, place in 'companies' file
  1008. #
  1009. #if ( $COMP eq "true" ) {
  1010.     #&CreateComp();
  1011. #}
  1012.  
  1013. #
  1014. # Compile list of products, place in 'products' file
  1015. #
  1016.  
  1017. #print "\n\n\nPress <RETURN> to close the window and test your submission..\n.";
  1018. #read answer;
  1019.  
  1020. ################################################################################
  1021. # Define FORMATS (no more code)
  1022. ################################################################################
  1023. format CATHEADERBEGIN =
  1024. <html>
  1025. <body  BGCOLOR="#8c8cde" link=#33ff00 vlink=#33ff00 >
  1026. <BASE TARGET="_top" HREF="http://localhost:7999/cgi-bin/show.bat/">
  1027. <center>
  1028. <form method="get"  ACTION="http://localhost:7999/cgi-bin/brandnewwais.pl/wais_SunSolutions">
  1029. <table border = 3><td>
  1030. <MAP Name="banner">
  1031. .
  1032.  
  1033. format CATHEADERMIDDLE =
  1034. </MAP></td><tr><td><center>
  1035. <B><FONT size="4">
  1036. #<B>Go to:  </b>
  1037. .
  1038.  
  1039. format CATHEADEREND =
  1040. #<br> Search: <input type="text" name="isindex" size="12" >
  1041. </font>
  1042. </td><tr></table>
  1043. </form>
  1044. </center>
  1045. </body>
  1046. </html>
  1047. .
  1048.  
  1049. format CATBEGIN =
  1050. <HTML>
  1051.         <!-- header section-->
  1052. <HEAD>
  1053. <title>Sun Solutions - April 1997</title>
  1054. </HEAD>
  1055.         <!-- document body-->
  1056. <BODY  BACKGROUND=../SunSolutions/images/back3.gif bgcolor="#DDDDDD">
  1057. <BASE TARGET="_top">
  1058. <DL>
  1059. #<hr>
  1060. #<p>
  1061. .
  1062.  
  1063. format CATEND =
  1064. </B></B><DT>
  1065. <hr>
  1066. </BODY>
  1067. </HTML>
  1068. .
  1069.  
  1070. format SOFTWAREHEAD =
  1071. <HTML>
  1072.         <!-- header section-->
  1073. <HEAD>
  1074. <TITLE>Sun Solutions - Software Categories</TITLE>
  1075. </HEAD>
  1076.         <!-- document body-->
  1077. <BODY BGCOLOR="8c8cde" link=#33ff00 vlink=#33ff00>
  1078. <CENTER>
  1079. <BASE TARGET="_top" HREF="http://localhost:7999/cgi-bin/show.bat/">
  1080. <form method="get"  ACTION="http://localhost:7999/cgi-bin/brandnewwais.pl/wais_SunSolutions">
  1081. <table border = 3><td>
  1082. <IMG border=0 SRC="http://localhost:7999/SunSolutions/images/software.gif" alt="" USEMAP=#banner ismap>
  1083. <MAP Name="banner">
  1084. <AREA SHAPE="RECT" HREF="?DEST=companies" COORDS=7,12,69,40>
  1085. <AREA SHAPE="RECT" HREF="?DEST=products" COORDS=3,48,69,80>
  1086. <AREA SHAPE="RECT" HREF="http://localhost:7999/SunSolutions/docs/info/Info.html" COORDS=73,6,142,46>
  1087. <AREA SHAPE="RECT" HREF="http://localhost:7999/SunSolutions/index.html" COORDS=72,40,143,85>
  1088. <AREA SHAPE="RECT" HREF="http://localhost:7999/SunSolutions/index.html" COORDS=200,0,595,74>
  1089. </MAP>
  1090. </TD><TR><TD>
  1091. <CENTER>
  1092. <FONT size="4">
  1093. #<br>Search: <input type="text" name="isindex" size="12" >
  1094. </font>
  1095. </CENTER>
  1096. </td><tr></table>
  1097. </CENTER>
  1098. </form>
  1099. </BODY>
  1100. </HTML>
  1101. .
  1102. ##############################################################################
  1103. format FRAMEHEADER =
  1104. Content-type: text/html
  1105.  
  1106.  
  1107.  
  1108. <html>
  1109. <head>
  1110. <title>Sun Solutions April 1997</title>
  1111. </head>
  1112. <FRAMESET ROWS="20,80">
  1113. #$size
  1114. .
  1115. ##############################################################################
  1116. format FRAMEFOOTER =
  1117. <BODY BACKGROUND="icons/bkgrnds/homebg.gif" body  BACKGROUND=../SunSolutions/images/back3.gif bgcolor=black text=#ffffff link=#dddddd alink=#ffff00 vlink=#bbbbbb>
  1118.  
  1119. <FONT SIZE=-1>Copyright \0511995 <B><A
  1120.  
  1121. </BODY>
  1122. </NOFRAME>
  1123. </FRAMESET>
  1124. </HTML>
  1125. .
  1126.